home *** CD-ROM | disk | FTP | other *** search
/ Celestin Apprentice 4 / Apprentice-Release4.iso / Source Code / Libraries / SAT 2.3.7 / TCL and demo / SATTest / sPlayer.p < prev    next >
Encoding:
Text File  |  1995-12-18  |  730 b   |  40 lines  |  [TEXT/PJMM]
  1. {****************************************************}
  2. {}
  3. {        sPlayer.p                                                                                                                                                                                                                }
  4. {}
  5. {        Sprite for the player. Based on the Assignments from the Tutorial.                                    }
  6. {}
  7. {****************************************************}
  8.  
  9.  
  10. unit sPlayer;
  11.  
  12. interface
  13.  
  14.     uses
  15.         SAT, SATTestGlobals;
  16.  
  17.     procedure HandlePlayer (me: SpritePtr);
  18.  
  19.     procedure SetupPlayer (me: SpritePtr);
  20.  
  21. implementation
  22.  
  23.  
  24.     procedure HandlePlayer (me: SpritePtr);
  25.  
  26.     begin
  27.         GetMouse(me^.position);
  28.     end; {HandlePlayer}
  29.  
  30.  
  31.     procedure SetupPlayer (me: SpritePtr);
  32.     begin
  33.         me^.task := @HandlePlayer;
  34.         me^.face := SATGetFace(128);
  35.         me^.kind := kindPlayer;
  36.         SetRect(me^.hotRect, 0, 0, 32, 32);
  37.     end; {SetupPlayer}
  38.  
  39.  
  40. end. { sPlayer }